//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',                    00000100
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC                              00000200
//**                                                                    00000300
/*JOBPARM     L=999,T=99,LINECT=0                                       00000400
//**                                                                    00000500
//**                                                                    00000600
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00000700
//*   +            J  2  8  1  S  C  Q  R - AD HOC         +            00000800
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00000900
//*   +  SUMMARY: GL ACCT SUMMARY.                         +            00001000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00001100
//*   +  CHANGE LOG:                                       +            00001200
//*   +  XX/XX/XX  : IMPLEMENTED.                          +            00001300
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00001400
//**                                                                    00001500
//STEP1010 EXEC PGM=IDCAMS                                              00001902
//SYSPRINT DD SYSOUT=*                                                  00002002
//SYSIN    DD *                                                         00002102
  DELETE 'ABLMSC.GL.SUMMARY.RPT01'                                      00002302
  SET MAXCC = 0                                                         00002402
//**                                                                    00002500
//STEP020     EXEC SAS                                                  00002600
//**                                                                    00002700
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00002800
//*   +                                                    +            00002900
//*   +  STEP020 ABEND INSTRUCTIONS:                       +            00003000
//*   +  UNCATLG DSNS: NONE                                +            00003100
//*   +  GDG CHANGES : NONE                                +            00003200
//*   +  RESTORE     : NONE                                +            00003300
//*   +  REFERBACKS  : NONE                                +            00003400
//*   +  RESTART AT  : STEP010                             +            00003500
//*   +                                                    +            00003600
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00003700
//*   +       EXTRACT GL SUMMARY YTD COUNTS.  ** SC  **    +            00003800
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00003900
//**                                                                    00004000
//FT12F001    DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           00004100
//            DISP=(NEW,CATLG,DELETE),                                  00004200
//            UNIT=DISK,                                                00004300
//            SPACE=(CYL,(1,1),RLSE),                                   00004400
//            DCB=(MODEL.DSCB,RECFM=FBA,LRECL=133,                      00004500
//            BLKSIZE=0)                                                00004600
//**                                                                    00004700
//FG111       DD DSN=ABLMSC.J231SC.MASTER.DISKCOPY,                     00004802
//            DISP=SHR                                                  00004900
//**                                                                    00005000
//SYSIN       DD *                                                      00005100
*--------------------------------------------------------------*;       00005200
*  CHANGELOG:                                                  *;       00005300
*--------------------------------------------------------------*;       00005400
                                                                        00005500
*--------------------------------------------------------------*;       00005600
*           EXTRACT         G/L           ACTVITY.             *;       00005700
*--------------------------------------------------------------*;       00005800
 DATA G111;                                                             00005900
 INFILE   FG111;                                                        00006000
 INPUT    @01  STATUS      $1.                                          00006100
          @06  ACCPRIME    $4.                                          00006200
          @10  ACCSUBX     $1.                                          00006302
          @13  ACCDEP2     $2. @;                                       00006400
 IF       ACCPRIME = '8000';                                            00006500
 IF       ACCDEP2 = '15';                                               00006600
 IF       ACCSUBX > '0';                                                00006702
 INPUT    @02  ACCLOC      $2.                                          00006800
          @04  ACCDIV      $2.                                          00006900
          @10  ACCSUB      $3.                                          00007000
          @13  ACCDEP      $4.                                          00007100
          @32  ACCDESC     $30.                                         00007200
          @255 BEGNMO      PD8.2                                        00007302
          @263 CURRMO      PD8.2                                        00007402
          @311 PD01        PD8.2                                        00007504
          @319 PD02        PD8.2                                        00007604
          ;                                                             00007700
 IF       ACCLOC = 'SC';                                                00007800
 IF       BEGNMO > 0 OR BEGNMO < 0 OR CURRMO > 0 OR CURRMO < 0;         00007902
 ENDGMO   = (BEGNMO + CURRMO);                                          00008000
                                                                        00008100
*------- REPORTS 01 THRU 03 -------------------;                        00008200
 TITLE1 "                                           ";                  00008300
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00008400
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00008500
 TITLE4 "         :                                 ";                  00008600
                                                                        00008700
*PROC FREQ;                                                             00008804
*  TABLES ACCLOC  ;                                                     00008904
*  TABLES ACCDEP  ;                                                     00009004
*  TABLES ACCDIV  ;                                                     00009104
*  TABLES ACCSUB  ;                                                     00009202
*RUN;                                                                   00009304
                                                                        00009400
                                                                        00009500
 TITLE1 "                                           ";                  00009600
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00009700
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00009800
 TITLE4 "         :                                 ";                  00009900
                                                                        00010000
 PROC TABULATE FORMAT=COMMA16.2 MISSING;                                00010100
   VAR  PD01 PD02 CURRMO ENDGMO;                                        00010203
   CLASS ACCDEP ACCSUB;                                                 00010302
   TABLE (ACCDEP ALL)*(ACCSUB ALL),                                     00010402
          PD01 PD02 CURRMO ENDGMO / RTS=30                              00010502
   BOX='SUMMARY BY ACC DEPT';                                           00010600
   KEYLABEL SUM='TOTAL';                                                00010700
 RUN;                                                                   00010800
                                                                        00010900
//**                                                                    00011000
//LAST040     EXEC DFSORT                                               00011100
//**                                                                    00011200
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00011300
//*   +  CREATE BTP JVS PRROF AND PRE-EDIT RPTS.           +            00011400
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00011500
//**                                                                    00011600
//SORTIN      DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           00011700
//            DISP=SHR                                                  00011800
//SORTOUT     DD SYSOUT=T,                                              00011900
//            DEST=FIN                                                  00012000
//SYSIN       DD *                                                      00012100
  SORT FIELDS=COPY                                                      00012200
//**                                                                    00013000
//**************************   END OF JOB   **************************  00020000
